home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / ad.arc / ADPRINT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  4.5 KB  |  102 lines
  1. 1  DIM ZK(40),D$(16),V$(16),V(16),V1$(16)
  2. 2  ARR$=CHR$(17)+CHR$(196)+CHR$(217)
  3. 5  OPEN "TEMPOR.TEM" FOR INPUT AS #1
  4. 6  INPUT #1, FILE$,FILM$,FIL$:CLOSE #1
  5. 10  OPEN FILM$ FOR INPUT AS #3
  6. 20  INPUT #3,Y$,NRED,NN,FILE$,FIL$,PT$,SNN$,LP1,LP$,T1$,SND$,TN,F$:FOR I= 1 TO 36:INPUT #3, ZK(I):NEXT:CLOSE #3
  7. 50  ON ERROR GOTO 200
  8. 55  ON KEY(1) GOSUB 150:KEY(1) ON
  9. 80  IF PT$="" THEN GOTO 1275
  10. 90  X1$="PRINT" :GOSUB 2000
  11. 95  GOSUB 3000
  12. 100  COLOR 3,0:LOCATE 12,16:PRINT "Do you want to change the printing parameters?"
  13. 105  LOCATE 14,33:PRINT "<Y>es or <N>o?":LOCATE 14,34:COLOR 14,0:PRINT "Y":LOCATE 14,43:PRINT "N":COLOR 3,0:GOSUB 10000:GOTO 110
  14. 107  GOSUB 10020:DEF SEG=0: POKE 1050, PEEK(1052)
  15. 110  Y$=INKEY$:IF Y$="" THEN 110 ELSE Y$=CHR$(ASC(Y$) AND &HDF)
  16. 115  IF Y$="Y" THEN 1270
  17. 117  IF Y$="N" THEN 1285 ELSE GOSUB 10020:GOTO 107
  18. 150  RUN"ADMAIN
  19. 200  IF ERR = 53 THEN RESUME 1270
  20. 220  IF ERR = 61 THEN LOCATE 10,1:PRINT "DISK FULL.  LOAD FORMATTED DISK AND TYPE <CONT> AND RETURN ":COLOR 14,0:LOCATE 10,43:PRINT "CONT":BEEP:COLOR 3,0:STOP
  21. 230  RESUME 1270
  22. 1270  ON KEY(1) GOSUB 150:KEY(1) ON
  23. 1275  GOSUB 4500
  24. 1280  GOTO 95
  25. 1285  GOSUB 9500
  26. 1295  GOSUB 1320
  27. 1300  ERASE D$,V$,V,V1$:CHAIN "ADPRT.BAS",,ALL
  28. 1310  REM
  29. 1320  IF Y$="g" OR Y$="G" THEN 1340
  30. 1330  REM         TEMPORARY FILE
  31. 1340  OPEN FILM$ FOR OUTPUT AS #3
  32. 1350  WRITE #3,Y$,NRED,NN,FILE$,FIL$,PT$,SNN$,LP1,LP$,T1$,SND$,TN,F$:FOR I= 1 TO 36:WRITE #3, ZK(I):NEXT:CLOSE #3
  33. 1360  RETURN
  34. 2000  X1$="PRINT":X3$="FILE = ":X5$="FUNCTION = ":X4$=SPACE$(20):Q$=CHR$(27)
  35. 2010  CLS:LOCATE 25,10:COLOR 1,7,1:PRINT X3$;FILE$;X4$;X5$;X1$;:COLOR 3,0:LOCATE 1,1:RETURN
  36. 3000  CLS:GOSUB 2000:PRINT"PRINTING PARAMETERS "
  37. 3002  IF LP$="N" THEN SS$=" NO" ELSE SS$=" YES"
  38. 3003  IF PT$="I" THEN AP$=" YES" ELSE AP$=" NO"
  39. 3004  IF PT$="N" THEN AP1$=" YES" ELSE AP1$=" NO"
  40. 3010  LOCATE 5,15:PRINT "PARALLEL PRINTER - LPT1:  ............... ";:COLOR 14,0:PRINT AP$
  41. 3020  COLOR 3,0:LOCATE 6,15:PRINT "SERIAL INTERFACE PRINTER - LPT2:  ....... ";:COLOR 14,0:PRINT AP1$
  42. 3030  COLOR 3,0:LOCATE 7,15:PRINT "LENGTH OF PAPER ......................... ";:COLOR 14,0:PRINT LP1
  43. 3040  COLOR 3,0:LOCATE 8,15:PRINT "SINGLE SHEET ............................ ";:COLOR 14,0:PRINT SS$
  44. 3050  T1=LEN(T1$):T1=34-INT(T1/2):COLOR 3,0:LOCATE 10,T1:PRINT "TITLE:  ";:COLOR 14,0:PRINT T1$
  45. 3100  RETURN
  46. 4500  REM
  47. 4510  X1$="SELECT PRINTER"
  48. 4520  IF AX$="***" THEN T1$="THE ADDRESS BOOK"
  49. 4540  GOSUB 2000
  50. 4550  PRINT "PLEASE SELECT PRINTER:  " :PRINT
  51. 4560  PRINT:COLOR 14,0:A$=CHR$(218)+CHR$(196)+CHR$(191):B$=CHR$(179)+" "+CHR$(179):C$=CHR$(192)+CHR$(196)+CHR$(217)
  52. 4570  PRINT "   ";CHR$(186);"     ";A$:PRINT "   ";CHR$(186);"     ";B$:PRINT "   ";CHR$(25);"     ";C$:COLOR 3,0
  53. 4580  PRINT :LOCATE  8,4:PRINT "I)BM Parallel Printer":LOCATE 9,4:PRINT "N)Serial Printer":COLOR 14,0:LOCATE 8,4:PRINT "I":LOCATE 9,4:PRINT "N"
  54. 4590  COLOR 31,0:LOCATE 5,11:PRINT "?":COLOR 3,0
  55. 4592  COLOR 14,0:LOCATE 22,50:PRINT "KEY  F1";:COLOR 3,0:PRINT " = MAIN MENU "
  56. 4595  GOSUB 10020:DEF SEG=0: POKE 1050, PEEK(1052)
  57. 4600  PT$=INKEY$: IF PT$="" THEN 4600 ELSE PT$=CHR$(ASC(PT$) AND &HDF)
  58. 4610  IF PT$="N" THEN 4632
  59. 4620  IF PT$="I" THEN 4630 ELSE 4595
  60. 4630  CLOSE #5:OPEN "LPT1:" FOR OUTPUT AS #5:GOTO 4635
  61. 4632  CLOSE #5:OPEN "LPT2:" FOR OUTPUT AS #5
  62. 4635  CLS:LOCATE 25,10:COLOR 1,7,1:PRINT X3$;FILE$;X4$;X5$;X1$;:COLOR 3,0:LOCATE 1,1
  63. 4640  PRINT "PLEASE CHOOSE THE HEADING FOR YOUR ADDRESS BOOK.":PRINT
  64. 4650  PRINT:COLOR 14,0:A$=CHR$(218)+CHR$(196)+CHR$(191):B$=CHR$(179)+" "+CHR$(179):C$=CHR$(192)+CHR$(196)+CHR$(217)
  65. 4660  PRINT "   ";CHR$(186);"     ";A$:PRINT "   ";CHR$(186);"     ";B$:PRINT "   ";CHR$(25);"     ";C$:COLOR 3,0
  66. 4670  PRINT :LOCATE 8,4:PRINT "S)TORED title - ":LOCATE 8,20:COLOR 14,0:PRINT T1$:COLOR 3,0:LOCATE 9,4:PRINT "N)EW title"
  67. 4675  COLOR 14,0:LOCATE 8,4:PRINT "S":LOCATE 9,4:PRINT "N"
  68. 4680  COLOR 31,0:LOCATE 5,11:PRINT "?":COLOR 3,0
  69. 4682  COLOR 14,0:LOCATE 22,50:PRINT "KEY  F1";:COLOR 3,0:PRINT " = MAIN MENU"
  70. 4685  GOSUB 10020:DEF SEG=0: POKE 1050, PEEK(1052)
  71. 4690  Y$=INKEY$: IF Y$="" THEN 4690
  72. 4700  IF Y$="N" OR Y$="n" THEN 4720
  73. 4710  IF Y$="S" OR Y$="s" THEN 4740 ELSE 4685
  74. 4720  CLS:LOCATE 25,10:COLOR 1,7,1:PRINT X3$;FILE$;X4$;X5$;X1$;:COLOR 3,0:LOCATE 1,1
  75. 4730  PRINT "Please INPUT the TITLE of your ADDRESS BOOK (maximum length THIRTY-TWO (32)           characters long)":GOSUB 10010:LOCATE 12,15:COLOR 14,0:INPUT "TITLE ... ",T$:T1$=LEFT$(T$,32):COLOR 3,0
  76. 4740  TN=LEN(T1$)
  77. 4760  TN=INT((76-TN)/2 +0.5)
  78. 4780  CLS:LOCATE 25,10:COLOR 1,7,1:PRINT X3$;FILE$;X4$;X5$;X1$;:COLOR 3,0:LOCATE 1,1
  79. 4790  PRINT "PLEASE SELECT PRINTER VARIABLES:  ":PRINT
  80. 4800  LOCATE 4,22:PRINT "Length of your paper (in INCHES)?"
  81. 4805  LOCATE 6,30:PRINT "Default = 11 inches":
  82. 4806  LOCATE 8,25:PRINT "INPUT ";ARR$ ;" for Default value":LOCATE 8,31:COLOR 14,0:PRINT ARR$:GOSUB 10010
  83. 4807  LOCATE 10,32:COLOR 14,0:INPUT "LENGTH ... ",LP1
  84. 4808  IF LP1=0 THEN LP1=11
  85. 4810  COLOR 3,0:LOCATE 14,6:PRINT "Do you want to be prompted when printing reaches the end of the page?":LOCATE 16,30: PRINT "ENTER <";:COLOR 14,0:PRINT "Y";:COLOR 3,0:PRINT ">es or <";:COLOR 14,0:PRINT "N";:COLOR 3,0:PRINT ">o."
  86. 4815  GOSUB 10020:DEF SEG=0: POKE 1050, PEEK(1052)
  87. 4820  LP$=INKEY$: IF LP$="" THEN 4820 ELSE LP$=CHR$(ASC(LP$) AND &HDF)
  88. 4825  IF LP$="Y" OR LP$="N" THEN RETURN ELSE 4815
  89. 4830  RETURN
  90. 6000  DEF SEG=0: POKE 1050, PEEK(1052):LOCATE 1,67:PRINT "(C) 1983":LOCATE 2,62:PRINT "Date:  ";DATE$:LOCATE 3,62:PRINT "Time:  "
  91. 6010  Y$=INKEY$:IF Y$="" THEN LOCATE 3,69:PRINT TIME$:GOTO 6010 ELSE RETURN
  92. 6040  DEF SEG=0: POKE 1050, PEEK(1052):LOCATE 19,29:PRINT "Date:  ";DATE$:LOCATE 20,29:PRINT "Time:  ":GOSUB 10000
  93. 6050  LOCATE ,,0:Y$=INKEY$:IF Y$="" THEN LOCATE 20,36:PRINT TIME$:GOTO 6050 ELSE RETURN
  94. 6085  DEF SEG=0: POKE 1050, PEEK(1052):LOCATE 20,29:PRINT "Date:  ";DATE$:LOCATE 21,29:PRINT "Time:  ";TIME$:RETURN
  95. 9500  REM
  96. 9610  CLS:LOCATE 25,10:COLOR 1,7,1:PRINT "INTEGRATED SOFTWARE SYSTEMS";SPACE$(15);"SERIAL NUMBER: ";SNN$;:COLOR 3,0
  97. 9620  LOCATE 12,23:PRINT "PLEASE WAIT, LOADING PRINT ROUTINES"
  98. 9640  RETURN
  99. 10000  IF SND$="N" THEN RETURN ELSE FOR A%=1 TO 3:SOUND 1000*A%,1:NEXT:FOR A%=3 TO 1 STEP -1:SOUND 1000*A%,1:NEXT:RETURN
  100. 10010  IF SND$="N" THEN RETURN ELSE FOR A%=1 TO 4:SOUND  520*A%,2:NEXT:RETURN
  101. 10020  IF SND$="N" THEN RETURN ELSE BEEP:RETURN
  102.